home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Animation How-To
/
Animation How-to CD.iso
/
PLY
/
CHAPTER5
/
SHATTER
/
SHAT3.PI
< prev
next >
Wrap
Text File
|
1994-01-01
|
2KB
|
109 lines
// SHAT3.PI - 192 pieces, sine modulation
include "\ply\colors.inc"
start_frame 0
end_frame 199
total_frames 200
outfile "shat3"
viewpoint {
from <6, 12,-8>
at <0,0,0>
up <0, 1, 0>
angle 30
resolution 320,240
aspect 1.33
}
define rspeed frame*0.1
define lspeed frame*0.001
define fr frame
define pi 3.14159
define b (total_frames-fr)/total_frames
define r1 (1 - cos(2 * pi * fr / total_frames)) / 2
define r2 1 - r1
define a001 <-1, 1, 1>
define b001 < 1, 1, 1>
define c001 <-1,-1, 1>
define a002 < 1, 1, 1>
define b002 < 1,-1, 1>
define c002 <-1,-1, 1>
define a003 < 1, 1,-1>
define b003 < 1,-1,-1>
define c003 < 1, 1, 1>
define a004 < 1, 1, 1>
define b004 < 1,-1,-1>
define c004 < 1,-1, 1>
define a005 < 1, 1, 1>
define b005 <-1, 1, 1>
define c005 <-1, 1,-1>
define a006 < 1, 1, 1>
define b006 <-1, 1,-1>
define c006 < 1, 1,-1>
define a007 <-1, 1, 1>
define b007 <-1,-1,-1>
define c007 <-1,-1, 1>
define a008 <-1, 1, 1>
define b008 <-1, 1,-1>
define c008 <-1,-1,-1>
define a009 < 1,-1, 1>
define b009 <-1,-1, 1>
define c009 <-1,-1,-1>
define a010 < 1,-1, 1>
define b010 < 1,-1,-1>
define c010 <-1,-1,-1>
define a011 < 1, 1,-1>
define b011 <-1, 1,-1>
define c011 < 1,-1,-1>
define a012 <-1,-1,-1>
define b012 <-1, 1,-1>
define c012 < 1,-1,-1>
include "moretri.inc"
include "col2.inc"
include "shat2.inc"
// Set up background color & lights
background midnightblue
light <0,15,-12>
light <12,-15,-12>
light <2,2,2>,<0,0,0>
define bumpy_yellow
texture {
special surface {
color <1.5,0.8,0>
normal N + (dnoise(3*W) - white/2)
ambient 0.2
diffuse 0.3
specular white, 0.7
microfacet Cook 5
}
scale <0.05, 0.05, 0.05>
}
object {sphere <-10, 0, 0>,0.4 translate <frame/2,0,0> bumpy_yellow}
object {sphere < 0,-10, 0>,0.4 translate <0,frame/2,0> bumpy_yellow}
object {sphere < 0, 0,-10>,0.4 translate <0,0,frame/2> bumpy_yellow}
object {sphere < 10, 0, 0>,0.4 translate <-frame/2,0,0> bumpy_yellow}
object {sphere < 0, 10, 0>,0.4 translate <0,-frame/2,0> bumpy_yellow}
object {sphere < 0, 0, 10>,0.4 translate <0,0,-frame/2> bumpy_yellow}